home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / video.dxr / 00142_simple frame script.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  453 b   |  26 lines
  1. on exitFrame
  2.   global speak
  3.   if speak = 1 then
  4.     if soundBusy(1) then
  5.       nothing()
  6.     else
  7.       sound fadeIn 1, 1 * 60
  8.       puppetSound(1, "final2")
  9.     end if
  10.     if soundBusy(3) then
  11.       nothing()
  12.     else
  13.       if random(25) = 1 then
  14.         if random(2) = 1 then
  15.           puppetSound(3, "Noise")
  16.         else
  17.           puppetSound(3, "Gurgle")
  18.         end if
  19.       end if
  20.     end if
  21.   else
  22.     sound close 1
  23.   end if
  24.   go(the frame)
  25. end
  26.